home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / www / amitrix / swedish31.lha / Docs / _getdir.rexx next >
OS/2 REXX Batch file  |  1997-11-25  |  1KB  |  41 lines
  1. /* ARexx-exempelskript för att läsa en vald låda och visa resultatet i
  2.    AWebs fönster. */
  3.  
  4. /* Hämta argumenten till en sträng */
  5. parse arg arguments
  6.  
  7. /* Initiera de olika parametrarna */
  8. drawer = ''
  9. dirsopt = ''
  10. allopt = ''
  11.  
  12. /* Hämta nu de olika parametrarna */
  13. do forever
  14.    parse var arguments nextarg arguments
  15.  
  16.    /* Sluta iterera efter det sista argumentet */
  17.    if nextarg == '' then leave
  18.  
  19.    /* Nu innehåller variabeln nextarg argumentet i DOS-formatet
  20.       namn="värde". Använd detta för att sätta lämpligt värde */
  21.    interpret nextarg
  22.    end
  23.  
  24. /* Hämta en unik identifierare */
  25. id = pragma('ID')
  26.  
  27. /* Skapa en temporär fil. Börja med HTML-huvudet: */
  28. address command
  29. 'Echo >t:dir_' || id '"<html><head><title>Innehåll i lådan' drawer '</title></head>"'
  30. 'Echo >>t:dir_' || id '"<body><h1>Innehåll i lådan' drawer '</h1><pre>"'
  31.  
  32. /* Hämta lådans innehåll
  33.    dirsopt är antingen 'DIRS' eller tom
  34.    allopt är antingen 'ALL' eller tom */
  35. 'dir >>t:dir_' || id drawer dirsopt allopt
  36.  
  37. /* Ladda in den temporära filen i AWeb.
  38.    Använd flaggan RELOAD för att se till att filen laddas igen. */
  39. address
  40. 'open file://localhost/t:dir_' || id 'reload'
  41.